#! /usr/bin/perl

use diagnostics;
use strict;

my @a;
$a[0] = 'DOS executable (COM)';
$a[1] = 'MS-DOS executable, MZ for MS-DOS, PKLITE compressed, ZIP self-extracting archive';
$a[2] = 'PE32 executable for MS Windows (console) Intel 80386 32-bit';
$a[3] = 'PE32 executable for MS Windows (DLL) (GUI) Intel 80386 32-bit';
$a[4] = 'PE32 executable for MS Windows (GUI) Intel 80386 32-bit';
$a[5] = 'PE32 executable for MS Windows (native) Intel 80386 32-bit';
$a[6] = 'MS-DOS executable';
foreach (@a){
	if(/^(MS-)?DOS executable|^PE32 executable for MS Windows/){
		print "casei: [$_]\n";
	}else{
		print "nao casei: [$_]\n";
	}
}